100 REM EASYSCRIPT FILE STRIPPER
110 REM BY ERIC GIGUERE
120 REM
130 PRINT"[147]INPUT FILENAME:  ";:GOSUB 270: FI$=LEFT$(IN$,16)
140 PRINT"OUTPUT FILENAME: ";:GOSUB 270: FO$=LEFT$(IN$,16)
150 FL=0: PRINT"OPENING THE FILES..."
160 OPEN15,8,15,"I0": GOSUB 280: IF E THEN 300
170 OPEN2,8,2,"0:"+FI$+",S,R": GOSUB 280: IF E THEN 300
180 OPEN3,8,3,"0:"+FO$+",S,W": GOSUB 280: IF E THEN 300
190 GET#2,A$: A=ASC(A$+CHR$(0)): OK=ST
200 IF A=128 THEN GET#2,A$: IF A$="*" THEN FL=1: GOTO 250
210 IF FL=1 AND A=13 THEN FL=0: GOTO 250
220 IF (A<32 AND A<>13) OR A>218 THEN 250
230 IF A>95 AND A<192 THEN 250
240 IF FL=0 THEN PRINT#3,A$;
250 IF OK=0 THEN 190
260 CLOSE2: CLOSE3: CLOSE15: END
270 OPEN1,0: INPUT#1,IN$: CLOSE1: PRINT: RETURN
280 INPUT#15,E,E$: IF E<20 THEN E=0
290 RETURN
300 PRINT"DISK ERROR: ";E;E$: GOTO 240